(current-load-list): Set it to nil.

If have frames, load `faces'.

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 2f39713e6aa5575804872aab5908c26f325bb157..ce81dbd1403a9b2d21229a070baff2b09ea2f683 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -55,6 +55,8 @@
       (load "frame")
       (load "mouse")
       (garbage-collect)
+      (load "faces")
+      (garbage-collect)
       (load "menu-bar")
       (load "scroll-bar")
       (load "select")))
@@ -166,6 +168,7 @@
 ;by writing a site-init.el that loads them.
 ;See also "site-load" above.
 (load "site-init" t)
+(setq current-load-list nil)
 (garbage-collect)
 
 ;;; At this point, we're ready to resume undo recording for scratch.